function testfilter = testfilter(data, range)


A = zeros(length(data),1);
for i = 1:length(data)
    try i > range/2 + 1 && i < length(data) - range/2;
        A(i) = mean(data(i-range/2:i + range/2));
    catch
        A(i) = data(i);
    end
end

testfilter = A';